home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Resident.asm < prev    next >
Assembly Source File  |  1991-03-13  |  707b  |  42 lines
  1. *
  2. *    Resident.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Exec/Resident.i
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _AbsExecBase
  12.  
  13.     XREF    _LVOFindResident
  14.     XDEF    _FindResident
  15. _FindResident
  16.     move.l    4(sp),a1
  17.     move.l    _AbsExecBase,a6
  18.     jmp    _LVOFindResident(a6)
  19.  
  20.     XREF    _LVOInitCode
  21.     XDEF    _InitCode
  22. _InitCode
  23.     move.l    4(sp),d1
  24.     move.l    8(sp),d0
  25.     move.l    _AbsExecBase,a6
  26.     jmp    _LVOInitCode(a6)
  27.  
  28.     XREF    _LVOInitResident
  29.     XDEF    _InitResident
  30. _InitResident
  31.     movem.l    4(sp),d1/a1
  32.     move.l    _AbsExecBase,a6
  33.     jmp    _LVOInitResident(a6)
  34.  
  35.     XREF    _LVOSumKickData
  36.     XDEF    _SumKickData
  37. _SumKickData
  38.     move.l    _AbsExecBase,a6
  39.     jmp    _LVOSumKickData(a6)
  40.  
  41.     END
  42.